;;;QQ:67762207
[@LevelUpBonus]
{
#IF
CheckBonus
#SAY
40ÿһ͸һǿᡣҪǿ\
ǿǺҩˮʧÿһֻһǿᣬҪذ\
{FCOLOR/10}Ѿӵ<$OUTPUT(USERADDBONUSCOUNT)>{FOCLOR/12}\\
</@ChangeType(HP,12,20,8,)> , </@ChangeType(MP,15,31,12,)> \
<ƻ/@ChangeType(DC,1,2,2,ƻ)> , <Ȼϵħ/@ChangeType(MC,1,2,2,Ȼϵ)> , <ϵħ/@ChangeType(SC,1,2,2,ϵ)> \
</@ChangeType(AC,1,2,2,)> , <ħ/@ChangeType(MAC,1,2,2,ħ)>\
<Ԫ/@ChangeType(ATOM)>\\

_<ʹýҿֵ/@LevelUpOneBonus> ÿ 10ң\

<ȡ/@exit>\
#ELSESAY
㻹û߱ǿ40ÿһͻһǿᡣ\\
< /@exit>

;Ӧ  12+random(8)   20+random(8)
;ħ      15+random(12)  31+random(12)
;ͷ  1+random(2)    2+random(2)
;5Ԫ 1+random(2)    1+random(3)

[@LevelUpOneBonus]
#IF
CheckBonus
checkgold 100000
#ACT
take  100000
#SAY
40ÿһ͸һǿᡣҪǿ\
ǿǺҩˮʧÿһֻһǿᣬҪذ\
{FCOLOR/10}Ѿӵ<$OUTPUT(USERADDBONUSCOUNT)>{FOCLOR/12}\\
</@ChangeType1(HP)> , </@ChangeType1(MP)> \
<ƻ/@ChangeType1(DC)> , <Ȼϵħ/@ChangeType1(MC)> , <ϵħ/@ChangeType1(SC)> \
</@ChangeType1(AC)> , <ħ/@ChangeType1(MAC)>\
<Ԫ/@ChangeType1(ATOM)>\ \
#ELSESAY
㻹û߱ǿ40ÿһͻһǿᡣ\ \
< /@exit>


[@ChangeType1()]
#ACT
mov A0 %ARG(1)

#IF
CheckBonus
#SAY
ҪӵĸӵĴ:\\
</@@intop>\


[@@intop]
#ACT
mov D5 %INPUTNUM
#SAY
Ҫ<$OUTPUT(A0)>ĴΪ<$OUTPUT(D5)>.\\
<ȷ/@addming>\
</@@intop>


[@addming]
#IF
CheckBonus
#ACT
goto @FastADDBonus

#IF
Large D5 1
#ACT
DEC D5 1
Delaygoto [Local] 1 @addming
#ELSEACT
break


[@FastADDBonus]
#IF
EQUAL A0  "HP"
#ACT
goto "@ChangeType(HP,12,20,8,)"

#IF
EQUAL A0  "MP"
#ACT
goto "@ChangeType(MP,15,31,12,)"

#IF
EQUAL A0  "DC"
#ACT
goto "@ChangeType(DC,1,2,2,ƻ)"

#IF
EQUAL A0  "SC"
#ACT
goto "@ChangeType(SC,1,2,2,ϵ)"

#IF
EQUAL A0  "MC"
#ACT
goto "@ChangeType(MC,1,2,2,Ȼϵ)"


#IF
EQUAL A0  "AC"
#ACT
goto "@ChangeType(AC,1,2,2,)"

#IF
EQUAL A0  "MAC"
#ACT
goto "@ChangeType(MAC,1,2,2,ħ)"

#IF
EQUAL A0  "ATOM"
#ACT
goto "@ChangeType(ATOM)"



[@ChangeType()]
#ACT
mov A0 %ARG(1)
mov D0 %ARG(2)  ;;40 
mov D1 %ARG(3)  ;;50 
mov D2 %ARG(4)  ;;
mov A1 %ARG(5)  ;;
close

#IF
Checklevel 40
#ACT
mov D3 %P9
mov D4 %USERADDBONUSCOUNT
#ELSEACT
break
#ELSESAY
㻹û߱ǿ40ÿһͻһǿᡣ\\
< /@exit>


#IF
!EQUAL D4 0
#ACT
dec D3 %D4
dec D3 39
#ELSEACT
dec D3 39



#IF
Large D3 0
#ELSEACT
break
#ELSESAY
㻹û߱ǿ40ÿһͻһǿᡣ\\
< /@exit>

#IF
#ACT
actcmd TAKEBONUSEX [INC]


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 50ͨ

#IF
#ACT
movr D4 %D2

#IF
!EQUAL D4 0
!EQUAL A0 "ATOM"
Elarge USERADDBONUSCOUNT 10
#ACT
inc D1 %D4
actcmd TAKEBONUSEX %A0 %D1
formatstr "%s%s" %A1 %D1
sysmsg "<$OUTPUT(A9)>"
break

#IF
EQUAL D4 0
!EQUAL A0 "ATOM"
Elarge USERADDBONUSCOUNT 10
#ACT
actcmd TAKEBONUSEX %A0 %D1
formatstr "%s%s" %A1 %D1
sysmsg "<$OUTPUT(A9)>"
break

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 50ͨ 

#IF
!EQUAL D4 0
!EQUAL A0 "ATOM"
eSmall USERADDBONUSCOUNT 10
#ACT
inc D0 %D4
actcmd TAKEBONUSEX %A0 %D0
formatstr "%s%s" %A1 %D0
sysmsg "<$OUTPUT(A9)>"
break

#IF
EQUAL D4 0
!EQUAL A0 "ATOM"
eSmall USERADDBONUSCOUNT 10
#ACT
actcmd TAKEBONUSEX %A0 %D0
formatstr "%s%s" %A1 %D0
sysmsg "<$OUTPUT(A9)>"
break
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  Ԫ

#IF
#ACT
movr D6 5
inc D6 1   ;;Ԫ
mov Ԫ1 0
mov Ԫ2 0
mov Ԫ3 0
mov Ԫ4 0
mov Ԫ5 0
mov Ԫ6 0
mov Ԫ7 0


#IF
LARGE D6 0
#ACT
dec D6 1
movr D7 7
inc D7 1
goto @ATOMDECIDE

#IF
LARGE D6 0
#ACT
dec D6 1
movr D7 7
inc D7 1
goto @ATOMDECIDE


#IF
LARGE D6 0
#ACT
dec D6 1
movr D7 7
inc D7 1
goto @ATOMDECIDE

#IF
LARGE D6 0
#ACT
dec D6 1
movr D7 7
inc D7 1
goto @ATOMDECIDE


#IF
Elarge USERADDBONUSCOUNT 10
#ACT
mov D3 3 ;; 0 1 2
#ELSEACT  
mov D3 2 ;; 0 1 

#IF
EQUAL Ԫ1 1
#ACT
movr D8 %D3
inc D8 1
actcmd TAKEBONUSEX AM1 %D8
formatstr "ԹԪ%s" %D8
sysmsg "<$OUTPUT(A9)>"

#IF
EQUAL Ԫ2 1
#ACT
movr D8 %D3
inc D8 1
actcmd TAKEBONUSEX AM2 %D8
formatstr "ԹԪ%s" %D8
sysmsg "<$OUTPUT(A9)>"

#IF
EQUAL Ԫ3 1
#ACT
movr D8 %D3
inc D8 1
actcmd TAKEBONUSEX AM3 %D8
formatstr "ԹԪ%s" %D8
sysmsg "<$OUTPUT(A9)>"

#IF
EQUAL Ԫ4 1
#ACT
movr D8 %D3
inc D8 1
actcmd TAKEBONUSEX AM4 %D8
formatstr "ԹԪ%s" %D8
sysmsg "<$OUTPUT(A9)>"

#IF
EQUAL Ԫ5 1
#ACT
movr D8 %D3
inc D8 1
actcmd TAKEBONUSEX AM5 %D8
formatstr "ʥԹԪ%s" %D8
sysmsg "<$OUTPUT(A9)>"

#IF
EQUAL Ԫ6 1
#ACT
movr D8 %D3
inc D8 1
actcmd TAKEBONUSEX AM6 %D8
formatstr "ԹԪ%s" %D8
sysmsg "<$OUTPUT(A9)>"

#IF
EQUAL Ԫ7 1
#ACT
movr D8 %D3
inc D8 1
actcmd TAKEBONUSEX AM7 %D8
formatstr "ӰԹԪ%s" %D8
sysmsg "<$OUTPUT(A9)>"


[@ATOMDECIDE]
#IF
EQUAL D7 1
#ACT
mov Ԫ1 1

#IF
EQUAL D7 2
#ACT
mov Ԫ2 1

#IF
EQUAL D7 3
#ACT
mov Ԫ3 1

#IF
EQUAL D7 4
#ACT
mov Ԫ4 1

#IF
EQUAL D7 5
#ACT
mov Ԫ5 1

#IF
EQUAL D7 6
#ACT
mov Ԫ6 1

#IF
EQUAL D7 7
#ACT
mov Ԫ7 1
}

[@BuyPotion]
{
#SAY
˵{FCOLOR/10}֮ҩˮ 100ֵȡӵףֵ{FCOLOR/12}һ  ֮ҩˮļ۸ 1,000,000 ҡ\\
<Ȼܰ󣬵һҪ/@BuyPotionCheck>

[@BuyPotionCheck]
#IF
checkgold 1000000
#SAY
ã֮ҩˮ\\
#ACT
give ֮ҩˮ 1
take  1000000
#ELSESAY
Ǯ\\
</@exit>
}
;;;QQ:67762207
